(require :asdf)
(asdf:operate 'asdf:load-op :roll)
(use-package :roll/socklib)

(defvar *server* nil)

(defun main nil
  (setf *server* (make-instance '<socket-server>))
  (roll/socklib::connect-to-server *server*)
  )

(defun proc nil
  (format-to-socket (socket-of *server*)
                    "~s~%" '(:task-setting (defpredicate (on (<obj> ?a) (<obj> ?b)))))
  (format t "~A~%" (read-line (socket-stream (socket-of *server*)))))

